home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / nshadow / tri-1.bas < prev    next >
BASIC Source File  |  1994-06-23  |  832b  |  27 lines
  1. 10 PRINT"      ***GIVEN TWO SIDES AND AN OPPOSITE ANGLE IN A TRIANGLE"
  2. 15 PRINT"         DETERMINE THE THIRD SIDE AND THE OTHER TWO ANGLES."
  3. 16 PRINT
  4. 20 PRINT "WHAT IS THE LENGTH OF SIDE (S1)?"
  5. 30 INPUT "ENTER"; S1
  6. 40 PRINT "WHAT IS THE LENGTH OF SIDE (S2)?"
  7. 50 INPUT "ENTER"; S2
  8. 60 PRINT "WHAT IS THE VALUE OF THE ANGLE (A2)?"
  9. 70 INPUT "ENTER"; A2
  10. 80 Z=57.2957795#
  11. 90 H=(S2/S1)*SIN(A2/Z)
  12. 100 A3=Z*(ATN(H/SQR(-H*H+1)))
  13. 110 I=-COS((A2+A3)/Z)
  14. 120 A1=Z*(-ATN(I/SQR(-I*I+1))+1.5708)
  15. 130 S3=(S1^2+S2^2-2*S1*S2*COS(A1/Z))^.5
  16. 135 J=.5*(S1*S3*SIN(A3/Z))
  17. 140 PRINT
  18. 150 PRINT"                      ***ANSWERS***"
  19. 160 PRINT
  20. 170 PRINT S1,"SIDE (S1)."
  21. 180 PRINT S2,"SIDE (S2)."
  22. 190 PRINT S3,"SIDE (S3)."
  23. 200 PRINT A1,"ANGLE (A1)."
  24. 210 PRINT A2,"ANGLE (A2)."
  25. 220 PRINT A3,"ANGLE (A3)."
  26. 230 PRINT J, "AREA OF TRIANGLE."
  27.